home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 9 / developer source - volume 9.iso / delph / jan96 / rippf104.gif

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  8KB  |  617x419  |  4-bit (8 colors)

Labels: text | electronics | screenshot | display | software | number
OCR: RECNO.PAS X implementation {$R *. DFM} uses DbiProcs, DbiTypes; procedure TForm1. DataSource1DataChange (Sender: TObject; Field: TField) ; var recNo: LongInt; begin if Table1. State = dsInactive then begin MessageDlg (' Table must be active. ', mtError, [mbOK] , 0) ; Exit; end; Table1. UpdateCursorPos; dbi GetSeqNo ( Table1. Handle, recNo) ; Label1. Caption := 'Record No: ' + IntToStr (recNo) ; end; 29: 42 Insert 1 \Recno

---